home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03013_Script_3013 < prev    next >
Text File  |  1983-01-27  |  2KB  |  58 lines
  1. --on video  PARAMETRI VIDEO
  2. ---QCAST = NUMERO DEL CAST DEL VIDEO
  3. ---QSPRITE=NUMERO DELLO SPRITE DEL VIDEO
  4. ---QSPRITEL=NUMERO DELLO SPRITE DELLA LINEA
  5. ---QSPRITEB=NUMERO DELLO SPRITE DELLA BARRA
  6.  
  7. on video qcast,qsprite,qspritel,qspriteb
  8.   
  9.   global vidstat,tuttos,unita
  10.   --------------BLOCCA IL CUBETTO QUANDO SI ENTRA NEL FRAME
  11.   global qvolte_video
  12.   if voidp(qvolte_video) then set qvolte_video to false
  13.   if not qvolte_video then
  14.     set the movierate of sprite 47 to 0
  15.     set qvolte_video to true
  16.     updatestage
  17.   end if
  18.   
  19.   if the castnum of sprite qsprite <> qcast then exit
  20.   
  21.   ----------------------PORTA IL CURSORINO ALLA FINE
  22.   if the movieTime of sprite qsprite = the duration of cast qcast  then
  23.     set the loch of sprite qspritel to (the right of sprite qspriteb - the width of sprite qspritel)
  24.   end if
  25.   --------------------
  26.   
  27.   if not tuttos then
  28.     if vidstat <> "manuale" then
  29.       if the movieTime of sprite qsprite = the duration of cast qcast  then set vidstat to "stop"
  30.       if vidstat = "play" or vidstat = "avveloce" or vidstat = "inveloce" then
  31.         set unita to the duration of cast qcast  / 320.0
  32.         if integer(the movieTime of sprite qsprite / unita) + the width of sprite qspritel < 320  then
  33.           set the loch of sprite qspritel to the loch of sprite qspriteb + integer(the movieTime of sprite qsprite / unita)
  34.           updatestage
  35.         end if
  36.       end if
  37.     end if
  38.     if vidstat = "inizio" then  set the loch of sprite qspritel to the loch of sprite qspriteb
  39.     
  40.     if vidstat = "play" or vidstat = "avveloce" or vidstat = "inveloce" then
  41.       if the movietime of sprite qsprite = the duration of cast qcast  then
  42.         set the loch of sprite qspritel to (the right of sprite qspriteb - the width of sprite qspritel)
  43.       end if
  44.     end if
  45.     
  46.   end if
  47.   ----------ACCENDE IL VIDEO IN INGRESSO DEL FRAME
  48.   global gia_fatto
  49.   if the movieTime of sprite qsprite < 10 and the movieRate of sprite qsprite = 0 and gia_fatto = false then
  50.     set the video of member qcast to 0
  51.     set the video of member qcast to 1
  52.     set gia_fatto to true
  53.   end if
  54.   --------------------------
  55.   updatestage
  56. end
  57.  
  58.